home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / CPUs / Macintosh Solutions Demo / Macintosh Solutions 1.0 / card_5418.txt < prev    next >
Text File  |  1990-08-24  |  4KB  |  176 lines
  1. -- card: 5418 from stack: in.0
  2. -- bmap block id: 18241
  3. -- flags: 4000
  4. -- background id: 4734
  5. -- name: USAB1.1
  6.  
  7.  
  8. -- part 18 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=325 top=93 right=115 bottom=489
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Which Macintosh?…
  20. ----- HyperTalk script -----
  21.  
  22. on mouseUp
  23.   determineSoftware -- bg script
  24.   put empty into softwareList
  25.   put char 4 of short name of this card into whichCategory
  26.   repeat with i = 6 to 7 -- "Category B"
  27.     set cursor to busy
  28.     if the hilight of cd btn i = true then
  29.       goSolution whichCategory,2
  30.       exit mouseUp
  31.     end if
  32.   end repeat
  33.  
  34.   repeat with i = 2 to 5 -- "Category A"
  35.     set cursor to busy
  36.     if the hilight of cd btn i = true then
  37.       goSolution whichCategory,1
  38.       exit mouseUp
  39.     end if
  40.   end repeat
  41.   answer "Please select at least one software category."
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 5 (button)
  47. -- low flags: 00
  48. -- high flags: A005
  49. -- rect: left=79 top=244 right=265 bottom=213
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: Word Processing
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   if the hilight of me is true then putMeInList (short name of me)
  61.   else getMeOutOfList (short name of me)
  62. end mouseUp
  63.  
  64.  
  65.  
  66. -- part 6 (button)
  67. -- low flags: 00
  68. -- high flags: A005
  69. -- rect: left=79 top=224 right=245 bottom=213
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: Spreadsheets
  78. ----- HyperTalk script -----
  79. on mouseUp
  80.   if the hilight of me is true then putMeInList (short name of me)
  81.   else getMeOutOfList (short name of me)
  82. end mouseUp
  83.  
  84.  
  85.  
  86. -- part 7 (button)
  87. -- low flags: 00
  88. -- high flags: A005
  89. -- rect: left=79 top=164 right=185 bottom=213
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 1
  93. -- font id: 0
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: Database
  98. ----- HyperTalk script -----
  99. on mouseUp
  100.   if the hilight of me is true then putMeInList (short name of me)
  101.   else getMeOutOfList (short name of me)
  102. end mouseUp
  103.  
  104.  
  105.  
  106. -- part 8 (button)
  107. -- low flags: 00
  108. -- high flags: A005
  109. -- rect: left=79 top=184 right=205 bottom=213
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 1
  113. -- font id: 0
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: E-Mail
  118. ----- HyperTalk script -----
  119. on mouseUp
  120.   if the hilight of me is true then putMeInList (short name of me)
  121.   else getMeOutOfList (short name of me)
  122. end mouseUp
  123.  
  124.  
  125.  
  126. -- part 10 (button)
  127. -- low flags: 00
  128. -- high flags: A005
  129. -- rect: left=79 top=144 right=165 bottom=218
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: Accounting
  138. ----- HyperTalk script -----
  139. on mouseUp
  140.   if the hilight of me is true then putMeInList (short name of me)
  141.   else getMeOutOfList (short name of me)
  142. end mouseUp
  143.  
  144.  
  145.  
  146. -- part 12 (button)
  147. -- low flags: 00
  148. -- high flags: A005
  149. -- rect: left=79 top=204 right=225 bottom=218
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: Presentations
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   if the hilight of me is true then putMeInList (short name of me)
  161.   else getMeOutOfList (short name of me)
  162. end mouseUp
  163.  
  164.  
  165.  
  166. -- part contents for background part 1
  167. ----- text -----
  168. USAB1.1
  169.  
  170. -- part contents for background part 3
  171. ----- text -----
  172. 6
  173.  
  174. -- part contents for background part 7
  175. ----- text -----
  176. Click to select the software categories that interest you, then click the ‚ÄúWhich Macintosh?‚Ķ‚Äù button to see the recommended Macintosh.